﻿Public Class formpsexec

    Private Sub btnpsexec_Click(sender As Object, e As EventArgs) Handles btnpsexec.Click
        Dim parametros2 As String
        Dim ruta As String
        Dim cmd1 As String




        parametros2 = textippsexec.Text
        ruta = "c:\windows\psexec.exe"
        cmd1 = "cmd.exe"

        Shell(ruta & " " & "\\" & parametros2 & " " & cmd1, vbNormalFocus)

        textippsexec.Clear()
        Me.Close()
    End Sub

    Private Sub formpsexec_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
End Class